home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS26.ADF / SoundScape / AztecLib / aztec.asm < prev    next >
Assembly Source File  |  1989-01-26  |  452b  |  25 lines
  1. *    Aztec.asm    (c) 1987  Todor Fay
  2. *
  3. *    Call _enteraztec at the beginning of a piece of code
  4. *    that is called from SoundScape.
  5. *    Call _leaveaztec when leaving that routine.
  6. *    
  7.  
  8.     public    __Dorg
  9.     public    _enteraztec
  10.     public    _leaveaztec
  11.  
  12. _enteraztec
  13.     move.l    (sp)+,d0
  14.     movem.l    d3/d4/d5/d6/d7/a3/a4/a5/a6,-(sp)
  15.     move.l    #__Dorg,a4
  16.     add.l    #32766,a4
  17.     move.l    d0,-(sp)
  18.     rts
  19.  
  20. _leaveaztec
  21.     move.l    (sp)+,d0
  22.     movem.l    (sp)+,d3/d4/d5/d6/d7/a3/a4/a5/a6
  23.     move.l    d0,-(sp)
  24.     rts
  25.